home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Afc / Tasker_Example1.e < prev    next >
Encoding:
Text File  |  1997-08-02  |  729 b   |  31 lines
  1.  
  2. MODULE 'AFC/tasker', 'afc/explain_exception'
  3.  
  4. -> tasks can only access global variables
  5. DEF sharedvar
  6.  
  7. PROC simpletask()
  8.   WHILE sharedvar<$8000000 DO sharedvar++
  9.   Wait(NIL)  -> that IS TO say: wait TO be killed
  10. ENDPROC
  11.  
  12.  
  13. PROC main() HANDLE
  14.   DEF myt:PTR TO tasker
  15.  
  16.   NEW myt.tasker('simpletask')  -> name OF the task
  17.  
  18.   myt.code({simpletask})  -> what code TO use
  19.   WriteF('starting task...(press RETURN TO end)\n')
  20.   myt.start()  -> starting task
  21.  
  22.   Inp(IF stdin THEN stdin ELSE stdout)
  23.   WriteF('The shared variable now equals \d\n', sharedvar)
  24.  
  25. EXCEPT DO
  26.   END myt  -> killing task (you can stop() it IF you don't need TO END
  27.            -> the whole OBJECT (maybe TO restart it again later))
  28.   explain_exception()
  29. ENDPROC
  30.  
  31.